VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmRateReductions 
   Caption         =   "Rate Reduction Information"
   ClientHeight    =   19000
   ClientLeft      =   -38400
   ClientTop       =   -16280
   ClientWidth     =   30400
   OleObjectBlob   =   "frmRateReductions.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmRateReductions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Wirtten by Jalisa Greene
'Last Modified by Jalisa Greene
'Last Updated 6/10/2014

Option Explicit   '**all variables must be declared**'
Dim LocID As Integer
Dim rowNum As Integer

Private Sub UserForm_Initialize()
'**ACTION SUB THAT RUNS WHEN THE USER OPENS THE FORM**

Dim loc As Range
Dim aCell As Range

'Add each location to the locations box'
For Each loc In Worksheets("INV").Range("locations")
    If loc <> "" Then cmbLocations.AddItem (loc.Value)
Next

'Insert Contracts into the picklists'
For Each aCell In Worksheets("Contract Data").Range("C10:C1000")
    If aCell.Value <> "" Then cmbContract1.AddItem (aCell.Value)
Next
    

End Sub

Private Sub cmbLocations_Change()
'**ACTION SUB THAT RUNS WHEN A USER SELECTS A LOCATION**

On Error GoTo ErrorResume:

    LocID = cmbLocations.Value
    'add each container for a selected location'
    Call InsertContainers
    Exit Sub
    
ErrorResume:
    Exit Sub
    
End Sub

Private Sub InsertContainers()
'**ONCE THE USER HAS SELECTED A LOCATION, ENTER IN THE CONTAINER IDS INTO THE NEXT DROP DOWN THAT ASSOCIATE WITH THAT LOCATION**

cmbContainers.Clear

'Insert Container 1'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 27, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 55, False))
'Insert Container 2'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 79, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 107, False))
'Insert Container 3'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 131, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 159, False))
'Insert Container 4'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 183, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 211, False))
'Insert Container 5'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 235, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 263, False))
'Insert Container 6/ Compactor 1'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 287, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 321, False))
'Insert Container 7/ Compactor 2'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 339, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 373, False))
'Insert Container 8/ Compactor 3'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 391, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 425, False))

End Sub

Private Sub cmbContainers_Change()
'**ONCE A CONTAINER HAS BEEN SELECTED, HIDE EXTRA FIELDS FOR COMPACTORS (UNHIDE LATER IF NECESSARY) AND CALL NEXT METHOD**'

    txt1FlatHaul.Visible = False
    lbl1FlatHaul.Visible = False
    txt1FlatDisposal.Visible = False
    lbl1FlatDisposal.Visible = False
    txt1WeightPerHaul.Visible = False
    lbl1WeightPerHaul.Visible = False
    txt1HaulsPerMonth.Visible = False
    lbl1HaulsPerMonth.Visible = False
    txt1QuanPerMonth.Visible = False
    lbl1QuanPerMonth.Visible = False
    txt1MaxWeight.Visible = False
    lbl1MaxWeight.Visible = False
    txt2FlatHaul.Visible = False
    lbl2FlatHaul.Visible = False
    txt2FlatDisposal.Visible = False
    lbl2FlatDisposal.Visible = False
    lblBillingCorr.BackStyle = fmBackStyleTransparent
    
    '**NEXT ACTION**'
    Call FindContainerData
    
End Sub

Private Sub btnCancel_Click()
'**ACTION SUB THAT RUNS WHEN A USER CLICKS CANCEL**'
frmRateReductions.Hide

End Sub

Private Sub FindContainerData()
'**RUNS AFTER A CONTAINER HAS BEEN SELECTED, FINDS OUT WHICH CONTAINER WE ARE USING THEN SENDS THAT INFO TO THE NEXT METHOD**'

'**ERROR CHECKER IN CASE USER TRIES TO TYPE IN VALUES**'
On Error GoTo ErrorResume:

    Dim containNum As Integer

    
'**FIND OUT THE CONTAINER NUMBER FOR THAT LOCATION**'
'**IF THE VENDOR FOR CORRECTIONS IS NOT EMPTY, CHANGE THE BACKGROUND COLOR TO GREEN'
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    If cmbContainers.Value = Worksheets("ASR").Range("BC" & rowNum) Then
        containNum = 1
        If Worksheets("ASR").Range("UG" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("DC" & rowNum) Then
        containNum = 2
        If Worksheets("ASR").Range("VN" & rowNum).Value <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("FC" & rowNum) Then
        containNum = 3
        If Worksheets("ASR").Range("WU" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("HC" & rowNum) Then
        containNum = 4
        If Worksheets("ASR").Range("YB" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("JC" & rowNum) Then
        containNum = 5
        If Worksheets("ASR").Range("ZI" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("LI" & rowNum) Then
        containNum = 6
        If Worksheets("ASR").Range("AAP" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("NI" & rowNum) Then
        containNum = 7
        If Worksheets("ASR").Range("ACB" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("PI" & rowNum) Then
        containNum = 8
        If Worksheets("ASR").Range("ADN" & rowNum) <> "" Then lblBillingCorr.BackStyle = fmBackStyleOpaque
    End If
    
'**NEXT ACTION THAT INSERTS THE DATA**'
    Call InsertContainerData(containNum)
    Exit Sub
    
ErrorResume:
    Exit Sub
    
    
End Sub

Private Sub InsertContainerData(containNum As Integer)
    '**THIS SUB BRINGS IN ENTERERED IN DATA (OR AUTOINPUTS BILLING CORRECTIONS) BILLING CORRECTIONS, AND CURRENT SPEND**


'**FIRST ASK IF THIS IS THE CONTAINER NUMBER, IF SO**'
'**INSERT CURRENT SPEND, INSERT BILLING CORRECTIONS**'
'**IF WE HAVE ALREADY ENTERED RATE REDUCTIONS, ENTER THEM OTHERWISE**'
'**ENTER IN AUTO INPUT WHICH COULD BE BILLING CORRECTIONS OR CURRENT SPEND**'

    If containNum = 1 Then
        Call InsertContain1
        Call InsertContain1Corrections
        If Worksheets("ASR").Range("AEZ" & rowNum).Value <> "" Then
            Call InsertContain1Reductions
        Else:
            Call InsertContain1AutoInput
        End If
        
    ElseIf containNum = 2 Then
        Call InsertContain2
        Call InsertContain2Corrections
        If Worksheets("ASR").Range("AGG" & rowNum).Value <> "" Then
            Call InsertContain2Reductions
        Else:
            Call InsertContain2AutoInput
        End If
        
    ElseIf containNum = 3 Then
        Call InsertContain3
        Call InsertContain3Corrections
        If Worksheets("ASR").Range("AHN" & rowNum).Value <> "" Then
            Call InsertContain3Reductions
        Else:
            Call InsertContain3AutoInput
        End If
        
    ElseIf containNum = 4 Then
        Call InsertContain4
        Call InsertContain4Corrections
        If Worksheets("ASR").Range("AIU" & rowNum).Value <> "" Then
            Call InsertContain4Reductions
        Else:
            Call InsertContain4AutoInput
        End If
        
    ElseIf containNum = 5 Then
        Call InsertContain5
        Call InsertContain5Corrections
        If Worksheets("ASR").Range("AKB" & rowNum).Value <> "" Then
            Call InsertContain5Reductions
        Else:
            Call InsertContain5AutoInput
        End If
    ElseIf containNum = 6 Then
        Call InsertContain6
        Call InsertContain6Corrections
        If Worksheets("ASR").Range("ALI" & rowNum).Value <> "" Then
            Call InsertContain6Reductions
        Else:
            Call InsertContain6AutoInput
        End If
        
    ElseIf containNum = 7 Then
        Call InsertContain7
        Call InsertContain7Corrections
        If Worksheets("ASR").Range("AMU" & rowNum).Value <> "" Then
            Call InsertContain7Reductions
        Else:
            Call InsertContain7AutoInput
        End If
        
    ElseIf containNum = 8 Then
        Call InsertContain8
        Call InsertContain8Corrections
        If Worksheets("ASR").Range("AOG" & rowNum).Value <> "" Then
            Call InsertContain8Reductions
        Else:
            Call InsertContain8AutoInput
        End If
    End If

End Sub
Private Sub InsertContain1()

    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 27, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 33, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 29, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 30, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 31, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 32, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 34, False)
                
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 35, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 35, False)
    Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 41, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 42, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 43, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 44, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 45, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 46, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 47, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 48, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 49, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 50, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 51, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 52, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 53, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 58, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 59, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 60, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 61, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 62, False)
                
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 54, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 54, False), "Currency")
    Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain2()
    'Insert Container 2 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 79, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 81, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 82, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 83, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 84, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 85, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 86, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 87, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 87, False)
        Else: txt1YdsPerWeek.Text = ""
    End If

    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 93, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 94, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 95, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 96, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 97, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 98, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 99, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 100, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 101, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 102, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 103, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 104, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 105, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 110, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 111, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 112, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 113, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 114, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 106, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 106, False), "Currency")
        Else: txt1MonSpend.Value = ""
    End If
End Sub

Private Sub InsertContain3()
'Insert Current Spend from Container 3'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 131, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 133, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 134, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 135, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 136, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 137, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 138, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 139, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 139, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 145, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 146, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 147, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 148, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 149, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 150, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 151, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 152, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 153, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 154, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 155, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 156, False)
    txt1FeePrice5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 157, False)
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 162, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 163, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 164, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 165, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 166, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 158, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 158, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain4()
'Insert Container 4 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 183, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 185, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 186, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 187, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 188, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 189, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 190, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 191, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 191, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 197, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 198, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 199, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 200, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 201, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 202, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 203, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 204, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 205, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 206, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 207, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 208, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 209, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 214, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 215, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 216, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 217, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 218, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 210, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 210, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain5()
'Insert Container 5 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 235, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 237, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 238, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 239, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 240, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 241, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 242, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 243, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 243, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 249, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 250, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 251, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 252, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 253, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 254, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 255, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 256, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 257, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 258, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 259, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 260, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 261, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 266, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 267, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 268, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 269, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 270, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 262, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 262, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain6()
'Insert Container 6 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 287, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 289, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 290, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 291, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 292, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 293, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 294, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 295, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 295, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 296, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 297, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 298, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 299, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 300, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 301, False)
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 307, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 308, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 309, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 310, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 311, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 312, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 313, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 314, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 315, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 316, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 317, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 318, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 319, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 324, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 325, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 326, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 327, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 328, False)

    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 320, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 320, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If

End Sub

Private Sub InsertContain7()
    'Insert Container 7 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 339, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 341, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 342, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 343, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 344, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 345, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 346, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 347, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 347, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 348, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 349, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 350, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 351, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 352, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 353, False)
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 359, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 360, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 361, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 362, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 363, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 364, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 365, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 366, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 367, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 368, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 369, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 370, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 371, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 376, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 377, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 378, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 379, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 380, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 372, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 372, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain8()
'Insert Container 8 information from the ASR'
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 391, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 393, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 394, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 395, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 396, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 397, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 398, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 399, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 399, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 400, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 401, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 402, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 403, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 404, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 405, False)
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 411, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 412, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 413, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 414, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 415, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 416, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 417, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 418, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 419, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 420, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 421, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 422, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 423, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 428, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 429, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 430, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 431, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 432, False)

    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 424, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 424, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If


End Sub

Private Sub InsertContain1Corrections()
'Insert Current Information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 560, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 561, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 562, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 563, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 564, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 566, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 567, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 569, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 570, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 572, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 573, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 575, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 576, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 565, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 568, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 571, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 574, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 577, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 578, False), "Currency")
End Sub

Private Sub InsertContain2Corrections()
    'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 593, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 594, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 595, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 596, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 597, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 599, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 600, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 602, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 603, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 605, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 606, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 608, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 609, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 598, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 601, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 604, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 607, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 610, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 611, False), "Currency")
End Sub

Private Sub InsertContain3Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 626, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 627, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 628, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 629, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 630, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 632, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 633, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 635, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 636, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 638, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 639, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 641, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 642, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 631, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 634, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 637, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 640, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 643, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 644, False), "Currency")
End Sub

Private Sub InsertContain4Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 659, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 660, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 661, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 662, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 663, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 665, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 666, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 668, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 669, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 671, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 672, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 674, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 675, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 664, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 667, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 670, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 673, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 676, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 677, False), "Currency")
End Sub

Private Sub InsertContain5Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 692, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 693, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 694, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 695, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 696, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 698, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 699, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 701, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 702, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 704, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 705, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 707, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 708, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 697, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 700, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 703, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 706, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 709, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 710, False), "Currency")
End Sub

Private Sub InsertContain6Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 725, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 726, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 727, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 728, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 729, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 731, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 732, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 734, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 735, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 737, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 738, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 740, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 741, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 730, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 733, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 736, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 739, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 742, False)
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 746, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 747, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 743, False), "Currency")
End Sub

Private Sub InsertContain7Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 763, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 764, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 765, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 766, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 767, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 769, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 770, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 772, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 773, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 775, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 776, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 778, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 779, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 768, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 771, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 774, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 777, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 780, False)
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 784, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 785, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 781, False), "Currency")
End Sub

Private Sub InsertContain8Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 801, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 802, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 803, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 804, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 805, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 807, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 808, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 810, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 811, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 813, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 814, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 816, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 817, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 806, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 809, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 812, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 815, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 818, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 819, False), "Currency")
End Sub

Private Sub InsertContain1AutoInput()

'**ALL AUTOINPUT METHODS WORK ALIKE. WE ASSIGN THE VARIABLE (VENDOR) TO BE THE LAST DATA SOURCE**
'**IN THIS CASE THAT IS BILLING CORRECTIONS -- IF IT IS THE CASE THAT VENDOR IS "" THEN THE STATEMENT IS TRUE
'**AND WE DO EVERYTHING UNDER THAT FIRST CASE, ELSE WE GO DOWN TO CASE ELSE AND DO EVERYTHING UNDER THAT**'


    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("UG" & rowNum).Value
    Select Case Vendor
    
    Case ""
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 41, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 42, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 43, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 44, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 45, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 46, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 47, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 48, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 49, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 50, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 51, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 52, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 53, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 58, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 59, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 60, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 61, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 62, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 54, False), "Currency")
    Case Else
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 560, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 561, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 562, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 563, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 564, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 566, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 567, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 569, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 570, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 572, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 573, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 575, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 576, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 565, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 568, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 571, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 574, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 577, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 578, False), "Currency")
    End Select
End Sub

Private Sub InsertContain2AutoInput()
    'Insert Container 2 information from the ASR'
    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("VN" & rowNum).Value
    Select Case Vendor
    
    Case ""
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 93, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 94, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 95, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 96, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 97, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 98, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 99, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 100, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 101, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 102, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 103, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 104, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 105, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 110, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 111, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 112, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 113, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 114, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 106, False), "Currency")
    Case Else
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 593, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 594, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 595, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 596, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 597, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 599, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 600, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 602, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 603, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 605, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 606, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 608, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 609, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 598, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 601, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 604, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 607, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 610, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 611, False), "Currency")
    End Select
End Sub

Private Sub InsertContain3AutoInput()
'Insert Current Spend from Container 3'
    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("WU" & rowNum).Value
    Select Case Vendor
    
    Case ""
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 145, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 146, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 147, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 148, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 149, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 150, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 151, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 152, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 153, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 154, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 155, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 156, False)
        txt3FeePrice5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 157, False)
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 162, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 163, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 164, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 165, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 166, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 158, False), "Currency")
    Case Else
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 626, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 627, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 628, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 629, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 630, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 632, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 633, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 635, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 636, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 638, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 639, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 641, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 642, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 631, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 634, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 637, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 640, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 643, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 644, False), "Currency")
    End Select
End Sub

Private Sub InsertContain4AutoInput()
'Insert Container 4 information from the ASR'
    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("YB" & rowNum).Value
    Select Case Vendor
    
    Case ""
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 197, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 198, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 199, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 200, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 201, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 202, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 203, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 204, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 205, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 206, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 207, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 208, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 209, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 214, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 215, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 216, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 217, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 218, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 210, False), "Currency")
    Case Else
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 659, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 660, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 661, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 662, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 663, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 665, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 666, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 668, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 669, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 671, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 672, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 674, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 675, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 664, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 667, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 670, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 673, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 676, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 677, False), "Currency")
    End Select
End Sub

Private Sub InsertContain5AutoInput()
'Insert Container 5 information from the ASR'
    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("ZI" & rowNum).Value
    Select Case Vendor
    
    Case ""
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 249, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 250, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 251, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 252, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 253, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 254, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 255, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 256, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 257, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 258, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 259, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 260, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 261, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 266, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 267, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 268, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 269, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 270, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 262, False), "Currency")
    Case Else
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 692, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 693, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 694, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 695, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 696, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 698, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 699, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 701, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 702, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 704, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 705, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 707, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 708, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 697, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 700, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 703, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 706, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 709, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 710, False), "Currency")
    End Select
End Sub

Private Sub InsertContain6AutoInput()
'Insert Container 6 information from the ASR'

    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True

    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("AAP" & rowNum).Value
    Select Case Vendor
    
    Case ""
        txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 300, False)
        txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 301, False)
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 307, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 308, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 309, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 310, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 311, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 312, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 313, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 314, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 315, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 316, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 317, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 318, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 319, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 324, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 325, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 326, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 327, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 328, False)
       txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 320, False), "Currency")
    Case Else
        txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 746, False)
        txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 747, False)
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 725, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 726, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 727, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 728, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 729, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 731, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 732, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 734, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 735, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 737, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 738, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 740, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 741, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 730, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 733, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 736, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 739, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 742, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 743, False), "Currency")
    End Select
End Sub

Private Sub InsertContain7AutoInput()
    'Insert Container 7 information from the ASR'
    
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True

    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("ACB" & rowNum).Value
    Select Case Vendor
    
    Case ""
        txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 352, False)
        txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 353, False)
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 359, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 360, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 361, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 362, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 363, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 364, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 365, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 366, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 367, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 368, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 369, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 370, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 371, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 376, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 377, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 378, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 379, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 380, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 372, False), "Currency")
    Case Else
        txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 784, False)
        txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 785, False)
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 763, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 764, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 765, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 766, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 767, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 769, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 770, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 772, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 773, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 775, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 776, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 778, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 779, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 768, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 771, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 774, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 777, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 780, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 781, False), "Currency")
    End Select

End Sub

Private Sub InsertContain8AutoInput()
'Insert Container 8 information from the ASR'
    
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True

    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("ADN" & rowNum).Value
    Select Case Vendor
    
    Case ""
        txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 404, False)
        txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 405, False)
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 411, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 412, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 413, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 414, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 415, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 416, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 417, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 418, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 419, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 420, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 421, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 422, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 423, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 428, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 429, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 430, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 431, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 432, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 424, False), "Currency")
    Case Else
        txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 801, False), "Currency")
        txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 802, False), "Currency")
        txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 803, False)
        txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 804, False)
        txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 805, False), "Currency")
        txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 807, False)
        txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 808, False), "Currency")
        txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 810, False)
        txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 811, False), "Currency")
        txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 813, False)
        txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 814, False), "Currency")
        txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 816, False)
        txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 817, False), "Currency")
        txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 806, False)
        txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 809, False)
        txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 812, False)
        txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 815, False)
        txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 818, False)
        txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 822, False)
        txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 823, False)
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 819, False), "Currency")
    End Select
End Sub

Private Sub InsertContain1Reductions()
Dim DaysofPickup As String

'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 839, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 840, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 841, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 842, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 843, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 845, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 846, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 848, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 849, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 851, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 852, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 854, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 855, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 844, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 847, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 850, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 853, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 856, False)
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ200"), 857, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 860, False)
    
End Sub

Private Sub InsertContain2Reductions()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 872, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 873, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 874, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 875, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 876, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 878, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 879, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 881, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 882, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 884, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 885, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 887, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 888, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 877, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 880, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 883, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 886, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 889, False)
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 890, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 893, False)
    
    
End Sub

Private Sub InsertContain3Reductions()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 905, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 906, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 907, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 908, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 909, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 911, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 912, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 914, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 915, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 917, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 918, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 920, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 921, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 910, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 913, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 916, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 919, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 922, False)
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 923, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 926, False)
    
   
End Sub

Private Sub InsertContain4Reductions()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 938, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 939, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 940, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 941, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 942, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 944, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 945, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 947, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 948, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 950, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 951, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 953, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 954, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 943, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 946, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 949, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 952, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 955, False)
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 956, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 959, False)
    
    
End Sub

Private Sub InsertContain5Reductions()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 971, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 972, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 973, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 974, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 975, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 977, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 978, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 980, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 981, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 983, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 984, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 986, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 987, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 976, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 979, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 982, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 985, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 988, False)
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 989, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 992, False)
    
    
End Sub

Private Sub InsertContain6Reductions()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1004, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1005, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1006, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1007, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1008, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1010, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1011, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1013, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1014, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1016, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1017, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1019, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1020, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1009, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1012, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1015, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1018, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1021, False)
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1022, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1025, False)
    
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1026, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1027, False)
  
End Sub

Private Sub InsertContain7Reductions()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1042, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1043, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1044, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1045, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1046, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1048, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1049, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1051, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1052, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1054, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1055, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1057, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1058, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1047, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1050, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1053, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1056, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1059, False)
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1060, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1063, False)
    
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1064, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1065, False)
    
End Sub

Private Sub InsertContain8Reductions()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Rate Reductions'
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1080, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1081, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1082, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1083, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1084, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1086, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1087, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1089, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1090, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1092, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1093, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1095, False)
    txt3FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1096, False), "Currency")
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1085, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1088, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1091, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1094, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1097, False)
    txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1098, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1101, False)
    
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1102, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1106"), 1103, False)
    
   
End Sub

Private Sub btnClose_Click()
'User clicked Close Form button'
Dim msg As Integer
If cmbContainers.Value <> "- Select a Container -" Then
    Dim closer As Integer
    'Ask if user wants to save'
    closer = MsgBox("You are now closing this form, do you wish to save?", vbYesNoCancel, "Close Rate Reductions Editor")
        'If No'
        If closer = 7 Then
        Unload frmRateReductions
        'If Yes'
        ElseIf closer = 6 Then
            Call btnSave_Click
            Unload frmRateReductions
            ThisWorkbook.Save
            'If Cancel'
        ElseIf closer = 2 Then Exit Sub
    End If
Else:
    Unload frmRateReductions
End If


End Sub

Private Sub btnSave_Click()

Dim containNum As Integer

    'Find out which Container we are updating then call corresponding module for saving'
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    
    If cmbContainers.Value = Worksheets("ASR").Range("BC" & rowNum) Then
        Call SaveCont1(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("DC" & rowNum) Then
        Call SaveCont2(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("FC" & rowNum) Then
        Call SaveCont3(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("HC" & rowNum) Then
        Call SaveCont4(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("JC" & rowNum) Then
        Call SaveCont5(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("LI" & rowNum) Then
        Call SaveCont6(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("NI" & rowNum) Then
        Call SaveCont7(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("PI" & rowNum) Then
        Call SaveCont8(rowNum)
    End If
    
         
End Sub

Private Sub SaveCont1(rowNum As Integer)
    'Save Container 1 information'
                
    Worksheets("ASR").Range("AEZ" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("AFD" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("AFA" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("AFB" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("AFC" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("AFE" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("AFG" & rowNum).Value = txt3BaseSvc.Value
    Worksheets("ASR").Range("AFH" & rowNum).Value = txt3EnvFee.Value
    Worksheets("ASR").Range("AFI" & rowNum).Value = txt3FuelFee.Value
    Worksheets("ASR").Range("AFJ" & rowNum).Value = txt3FeeType1.Text
    Worksheets("ASR").Range("AFK" & rowNum).Value = txt3FeePrice1.Value
    Worksheets("ASR").Range("AFL" & rowNum).Value = txt3Rate1.Value
    Worksheets("ASR").Range("AFM" & rowNum).Value = txt3FeeType2.Text
    Worksheets("ASR").Range("AFN" & rowNum).Value = txt3FeePrice2.Value
    Worksheets("ASR").Range("AFO" & rowNum).Value = txt3Rate2.Value
    Worksheets("ASR").Range("AFP" & rowNum).Value = txt3FeeType3.Text
    Worksheets("ASR").Range("AFQ" & rowNum).Value = txt3FeePrice3.Value
    Worksheets("ASR").Range("AFR" & rowNum).Value = txt3Rate3.Value
    Worksheets("ASR").Range("AFS" & rowNum).Value = txt3FeeType4.Text
    Worksheets("ASR").Range("AFT" & rowNum).Value = txt3FeePrice4.Value
    Worksheets("ASR").Range("AFU" & rowNum).Value = txt3Rate4.Value
    Worksheets("ASR").Range("AFV" & rowNum).Value = txt3FeeType5.Text
    Worksheets("ASR").Range("AFW" & rowNum).Value = txt3FeePrice5.Value
    Worksheets("ASR").Range("AFX" & rowNum).Value = txt3Rate5.Value
    Worksheets("ASR").Range("AGB" & rowNum).Value = cmbContract1.Value
    Worksheets("ASR").Range("AGC" & rowNum).Value = "Accepted"
    
    
End Sub
Private Sub SaveCont2(rowNum As Integer)
    'Save Container 2 information'
                
    Worksheets("ASR").Range("AGG" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("AGK" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("AGH" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("AGI" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("AGJ" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("AGL" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("AGN" & rowNum).Value = txt3BaseSvc.Value
    Worksheets("ASR").Range("AGO" & rowNum).Value = txt3EnvFee.Value
    Worksheets("ASR").Range("AGP" & rowNum).Value = txt3FuelFee.Value
    Worksheets("ASR").Range("AGQ" & rowNum).Value = txt3FeeType1.Text
    Worksheets("ASR").Range("AGR" & rowNum).Value = txt3FeePrice1.Value
    Worksheets("ASR").Range("AGS" & rowNum).Value = txt3Rate1.Value
    Worksheets("ASR").Range("AGT" & rowNum).Value = txt3FeeType2.Text
    Worksheets("ASR").Range("AGU" & rowNum).Value = txt3FeePrice2.Value
    Worksheets("ASR").Range("AGV" & rowNum).Value = txt3Rate2.Value
    Worksheets("ASR").Range("AGW" & rowNum).Value = txt3FeeType3.Text
    Worksheets("ASR").Range("AGX" & rowNum).Value = txt3FeePrice3.Value
    Worksheets("ASR").Range("AGY" & rowNum).Value = txt3Rate3.Value
    Worksheets("ASR").Range("AGZ" & rowNum).Value = txt3FeeType4.Text
    Worksheets("ASR").Range("AHA" & rowNum).Value = txt3FeePrice4.Value
    Worksheets("ASR").Range("AHB" & rowNum).Value = txt3Rate4.Value
    Worksheets("ASR").Range("AHC" & rowNum).Value = txt3FeeType5.Text
    Worksheets("ASR").Range("AHD" & rowNum).Value = txt3FeePrice5.Value
    Worksheets("ASR").Range("AHE" & rowNum).Value = txt3Rate5.Value
    Worksheets("ASR").Range("AHI" & rowNum).Value = cmbContract1.Value
    Worksheets("ASR").Range("AHJ" & rowNum).Value = "Accepted"


End Sub

Private Sub SaveCont3(rowNum As Integer)
    'Save Container 3 information'
                
    Worksheets("ASR").Range("AHN" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("AHR" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("AHO" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("AHP" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("AHQ" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("AHS" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("AHU" & rowNum).Value = txt3BaseSvc.Value
    Worksheets("ASR").Range("AHV" & rowNum).Value = txt3EnvFee.Value
    Worksheets("ASR").Range("AHW" & rowNum).Value = txt3FuelFee.Value
    Worksheets("ASR").Range("AHX" & rowNum).Value = txt3FeeType1.Text
    Worksheets("ASR").Range("AHY" & rowNum).Value = txt3FeePrice1.Value
    Worksheets("ASR").Range("AHZ" & rowNum).Value = txt3Rate1.Value
    Worksheets("ASR").Range("AIA" & rowNum).Value = txt3FeeType2.Text
    Worksheets("ASR").Range("AIB" & rowNum).Value = txt3FeePrice2.Value
    Worksheets("ASR").Range("AIC" & rowNum).Value = txt3Rate2.Value
    Worksheets("ASR").Range("AID" & rowNum).Value = txt3FeeType3.Text
    Worksheets("ASR").Range("AIE" & rowNum).Value = txt3FeePrice3.Value
    Worksheets("ASR").Range("AIF" & rowNum).Value = txt3Rate3.Value
    Worksheets("ASR").Range("AIG" & rowNum).Value = txt3FeeType4.Text
    Worksheets("ASR").Range("AIH" & rowNum).Value = txt3FeePrice4.Value
    Worksheets("ASR").Range("AII" & rowNum).Value = txt3Rate4.Value
    Worksheets("ASR").Range("AIJ" & rowNum).Value = txt3FeeType5.Text
    Worksheets("ASR").Range("AIK" & rowNum).Value = txt3FeePrice5.Value
    Worksheets("ASR").Range("AIL" & rowNum).Value = txt3Rate5.Value
    Worksheets("ASR").Range("AIP" & rowNum).Value = cmbContract1.Value
    Worksheets("ASR").Range("AIQ" & rowNum).Value = "Accepted"
    
    
End Sub

Private Sub SaveCont4(rowNum As Integer)
    'Save Container 4 information'
                
    Worksheets("ASR").Range("AIU" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("AIY" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("AIV" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("AIW" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("AIX" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("AIZ" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("AJB" & rowNum).Value = txt3BaseSvc.Value
    Worksheets("ASR").Range("AJC" & rowNum).Value = txt3EnvFee.Value
    Worksheets("ASR").Range("AJD" & rowNum).Value = txt3FuelFee.Value
    Worksheets("ASR").Range("AJE" & rowNum).Value = txt3FeeType1.Text
    Worksheets("ASR").Range("AJF" & rowNum).Value = txt3FeePrice1.Value
    Worksheets("ASR").Range("AJG" & rowNum).Value = txt3Rate1.Value
    Worksheets("ASR").Range("AJH" & rowNum).Value = txt3FeeType2.Text
    Worksheets("ASR").Range("AJI" & rowNum).Value = txt3FeePrice2.Value
    Worksheets("ASR").Range("AJJ" & rowNum).Value = txt3Rate2.Value
    Worksheets("ASR").Range("AJK" & rowNum).Value = txt3FeeType3.Text
    Worksheets("ASR").Range("AJL" & rowNum).Value = txt3FeePrice3.Value
    Worksheets("ASR").Range("AJM" & rowNum).Value = txt3Rate3.Value
    Worksheets("ASR").Range("AJN" & rowNum).Value = txt3FeeType4.Text
    Worksheets("ASR").Range("AJO" & rowNum).Value = txt3FeePrice4.Value
    Worksheets("ASR").Range("AJP" & rowNum).Value = txt3Rate4.Value
    Worksheets("ASR").Range("AJQ" & rowNum).Value = txt3FeeType5.Text
    Worksheets("ASR").Range("AJR" & rowNum).Value = txt3FeePrice5.Value
    Worksheets("ASR").Range("AJS" & rowNum).Value = txt3Rate5.Value
    Worksheets("ASR").Range("AJW" & rowNum).Value = cmbContract1.Value
    Worksheets("ASR").Range("AJX" & rowNum).Value = "Accepted"
    
    
End Sub

Private Sub SaveCont5(rowNum As Integer)
    'Save Container 5 information'
                
    Worksheets("ASR").Range("AKB" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("AKF" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("AKC" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("AKD" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("AKE" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("AKG" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("AKI" & rowNum).Value = txt3BaseSvc.Value
    Worksheets("ASR").Range("AKJ" & rowNum).Value = txt3EnvFee.Value
    Worksheets("ASR").Range("AKK" & rowNum).Value = txt3FuelFee.Value
    Worksheets("ASR").Range("AKL" & rowNum).Value = txt3FeeType1.Text
    Worksheets("ASR").Range("AKM" & rowNum).Value = txt3FeePrice1.Value
    Worksheets("ASR").Range("AKN" & rowNum).Value = txt3Rate1.Value
    Worksheets("ASR").Range("AKO" & rowNum).Value = txt3FeeType2.Text
    Worksheets("ASR").Range("AKP" & rowNum).Value = txt3FeePrice2.Value
    Worksheets("ASR").Range("AKQ" & rowNum).Value = txt3Rate2.Value
    Worksheets("ASR").Range("AKR" & rowNum).Value = txt3FeeType3.Text
    Worksheets("ASR").Range("AKS" & rowNum).Value = txt3FeePrice3.Value
    Worksheets("ASR").Range("AKT" & rowNum).Value = txt3Rate3.Value
    Worksheets("ASR").Range("AKU" & rowNum).Value = txt3FeeType4.Text
    Worksheets("ASR").Range("AKV" & rowNum).Value = txt3FeePrice4.Value
    Worksheets("ASR").Range("AKW" & rowNum).Value = txt3Rate4.Value
    Worksheets("ASR").Range("AKX" & rowNum).Value = txt3FeeType5.Text
    Worksheets("ASR").Range("AKY" & rowNum).Value = txt3FeePrice5.Value
    Worksheets("ASR").Range("AKZ" & rowNum).Value = txt3Rate5.Value
    Worksheets("ASR").Range("ALD" & rowNum).Value = cmbContract1.Value
    Worksheets("ASR").Range("ALE" & rowNum).Value = "Accepted"
    
    
End Sub

Private Sub SaveCont6(rowNum As Integer)
    'Save Container 6 information'
                
    Worksheets("ASR").Range("ALI" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("ALM" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("ALJ" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("ALK" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("ALL" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("ALN" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("ALP" & rowNum).Value = txt3BaseSvc.Value
    Worksheets("ASR").Range("ALQ" & rowNum).Value = txt3EnvFee.Value
    Worksheets("ASR").Range("ALR" & rowNum).Value = txt3FuelFee.Value
    Worksheets("ASR").Range("ALS" & rowNum).Value = txt3FeeType1.Text
    Worksheets("ASR").Range("ALT" & rowNum).Value = txt3FeePrice1.Value
    Worksheets("ASR").Range("ALU" & rowNum).Value = txt3Rate1.Value
    Worksheets("ASR").Range("ALV" & rowNum).Value = txt3FeeType2.Text
    Worksheets("ASR").Range("ALW" & rowNum).Value = txt3FeePrice2.Value
    Worksheets("ASR").Range("ALX" & rowNum).Value = txt3Rate2.Value
    Worksheets("ASR").Range("ALY" & rowNum).Value = txt3FeeType3.Text
    Worksheets("ASR").Range("ALZ" & rowNum).Value = txt3FeePrice3.Value
    Worksheets("ASR").Range("AMA" & rowNum).Value = txt3Rate3.Value
    Worksheets("ASR").Range("AMB" & rowNum).Value = txt3FeeType4.Text
    Worksheets("ASR").Range("AMC" & rowNum).Value = txt3FeePrice4.Value
    Worksheets("ASR").Range("AMD" & rowNum).Value = txt3Rate4.Value
    Worksheets("ASR").Range("AME" & rowNum).Value = txt3FeeType5.Text
    Worksheets("ASR").Range("AMF" & rowNum).Value = txt3FeePrice5.Value
    Worksheets("ASR").Range("AMG" & rowNum).Value = txt3Rate5.Value
    Worksheets("ASR").Range("AMK" & rowNum).Value = cmbContract1.Value
    Worksheets("ASR").Range("AML" & rowNum).Value = txt2FlatHaul.Value
    Worksheets("ASR").Range("AMM" & rowNum).Value = txt2FlatDisposal.Value
    Worksheets("ASR").Range("AMN" & rowNum).Value = "Accepted"
    
   
End Sub

Private Sub SaveCont7(rowNum As Integer)
    'Save Container 7 information'
                
    Worksheets("ASR").Range("AMU" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("AMY" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("AMV" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("AMW" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("AMX" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("AMZ" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("ANB" & rowNum).Value = txt3BaseSvc.Value
    Worksheets("ASR").Range("ANC" & rowNum).Value = txt3EnvFee.Value
    Worksheets("ASR").Range("AND" & rowNum).Value = txt3FuelFee.Value
    Worksheets("ASR").Range("ANE" & rowNum).Value = txt3FeeType1.Text
    Worksheets("ASR").Range("ANF" & rowNum).Value = txt3FeePrice1.Value
    Worksheets("ASR").Range("ANG" & rowNum).Value = txt3Rate1.Value
    Worksheets("ASR").Range("ANH" & rowNum).Value = txt3FeeType2.Text
    Worksheets("ASR").Range("ANI" & rowNum).Value = txt3FeePrice2.Value
    Worksheets("ASR").Range("ANJ" & rowNum).Value = txt3Rate2.Value
    Worksheets("ASR").Range("ANK" & rowNum).Value = txt3FeeType3.Text
    Worksheets("ASR").Range("ANL" & rowNum).Value = txt3FeePrice3.Value
    Worksheets("ASR").Range("ANM" & rowNum).Value = txt3Rate3.Value
    Worksheets("ASR").Range("ANN" & rowNum).Value = txt3FeeType4.Text
    Worksheets("ASR").Range("ANO" & rowNum).Value = txt3FeePrice4.Value
    Worksheets("ASR").Range("ANP" & rowNum).Value = txt3Rate4.Value
    Worksheets("ASR").Range("ANQ" & rowNum).Value = txt3FeeType5.Text
    Worksheets("ASR").Range("ANR" & rowNum).Value = txt3FeePrice5.Value
    Worksheets("ASR").Range("ANS" & rowNum).Value = txt3Rate5.Value
    Worksheets("ASR").Range("ANW" & rowNum).Value = cmbContract1.Value
    Worksheets("ASR").Range("ANX" & rowNum).Value = txt2FlatHaul.Value
    Worksheets("ASR").Range("ANY" & rowNum).Value = txt2FlatDisposal.Value
    Worksheets("ASR").Range("ANZ" & rowNum).Value = "Accepted"
    
   
End Sub

Private Sub SaveCont8(rowNum As Integer)
    'Save Container 8 information'
                
    Worksheets("ASR").Range("AOG" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("AOK" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("AOH" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("AOI" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("AOJ" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("AOL" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("AON" & rowNum).Value = txt3BaseSvc.Value
    Worksheets("ASR").Range("AOO" & rowNum).Value = txt3EnvFee.Value
    Worksheets("ASR").Range("AOP" & rowNum).Value = txt3FuelFee.Value
    Worksheets("ASR").Range("AOQ" & rowNum).Value = txt3FeeType1.Text
    Worksheets("ASR").Range("AOR" & rowNum).Value = txt3FeePrice1.Value
    Worksheets("ASR").Range("AOS" & rowNum).Value = txt3Rate1.Value
    Worksheets("ASR").Range("AOT" & rowNum).Value = txt3FeeType2.Text
    Worksheets("ASR").Range("AOU" & rowNum).Value = txt3FeePrice2.Value
    Worksheets("ASR").Range("AOV" & rowNum).Value = txt3Rate2.Value
    Worksheets("ASR").Range("AOW" & rowNum).Value = txt3FeeType3.Text
    Worksheets("ASR").Range("AOX" & rowNum).Value = txt3FeePrice3.Value
    Worksheets("ASR").Range("AOY" & rowNum).Value = txt3Rate3.Value
    Worksheets("ASR").Range("AOZ" & rowNum).Value = txt3FeeType4.Text
    Worksheets("ASR").Range("APA" & rowNum).Value = txt3FeePrice4.Value
    Worksheets("ASR").Range("APB" & rowNum).Value = txt3Rate4.Value
    Worksheets("ASR").Range("APC" & rowNum).Value = txt3FeeType5.Text
    Worksheets("ASR").Range("APD" & rowNum).Value = txt3FeePrice5.Value
    Worksheets("ASR").Range("APE" & rowNum).Value = txt3Rate5.Value
    Worksheets("ASR").Range("API" & rowNum).Value = cmbContract1.Value
    Worksheets("ASR").Range("APJ" & rowNum).Value = txt2FlatHaul.Value
    Worksheets("ASR").Range("APK" & rowNum).Value = txt2FlatDisposal.Value
    Worksheets("ASR").Range("APL" & rowNum).Value = "Accepted"
    
End Sub

